home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vegask1a / frmtip.frm (.txt) < prev    next >
Visual Basic Form  |  1999-02-07  |  4KB  |  110 lines
  1. VERSION 5.00
  2. Begin VB.Form frmTip 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "License Agreement."
  5.    ClientHeight    =   3945
  6.    ClientLeft      =   2355
  7.    ClientTop       =   2340
  8.    ClientWidth     =   6480
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3945
  13.    ScaleWidth      =   6480
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   2  'CenterScreen
  16.    WhatsThisButton =   -1  'True
  17.    WhatsThisHelp   =   -1  'True
  18.    Begin VB.CheckBox accept 
  19.       Caption         =   " I Accept These Terms."
  20.       BeginProperty Font 
  21.          Name            =   "MS Sans Serif"
  22.          Size            =   8.25
  23.          Charset         =   0
  24.          Weight          =   700
  25.          Underline       =   0   'False
  26.          Italic          =   -1  'True
  27.          Strikethrough   =   0   'False
  28.       EndProperty
  29.       Height          =   435
  30.       Left            =   1920
  31.       TabIndex        =   2
  32.       ToolTipText     =   "I Accept The Terms."
  33.       Top             =   3240
  34.       Width           =   3495
  35.    End
  36.    Begin VB.CommandButton cmdNextTip 
  37.       Caption         =   "Do Not Accept"
  38.       Height          =   375
  39.       Left            =   5160
  40.       TabIndex        =   1
  41.       Top             =   600
  42.       Width           =   1215
  43.    End
  44.    Begin VB.CommandButton cmdOK 
  45.       Cancel          =   -1  'True
  46.       Caption         =   "Accept"
  47.       Default         =   -1  'True
  48.       Height          =   375
  49.       Left            =   5160
  50.       TabIndex        =   0
  51.       Top             =   120
  52.       Width           =   1215
  53.    End
  54.    Begin VB.Label Label1 
  55.       Alignment       =   2  'Center
  56.       AutoSize        =   -1  'True
  57.       BeginProperty Font 
  58.          Name            =   "MS Sans Serif"
  59.          Size            =   8.25
  60.          Charset         =   0
  61.          Weight          =   700
  62.          Underline       =   0   'False
  63.          Italic          =   0   'False
  64.          Strikethrough   =   0   'False
  65.       EndProperty
  66.       Height          =   195
  67.       Left            =   2640
  68.       TabIndex        =   3
  69.       Top             =   240
  70.       Width           =   105
  71.    End
  72. Attribute VB_Name = "frmTip"
  73. Attribute VB_GlobalNameSpace = False
  74. Attribute VB_Creatable = False
  75. Attribute VB_PredeclaredId = True
  76. Attribute VB_Exposed = False
  77. Private Sub cmdNextTip_Click()
  78. End Sub
  79. Private Sub cmdOK_Click()
  80.     If accept.Value = 1 Then
  81.     SaveSetting App.Title, "Options", "license", accept.Value
  82.         Unload Me
  83.         Splash.Show
  84.         Exit Sub
  85.     End If
  86.     MsgBox "Please Check The I Agree Box Below, or press disagree to exit", vbOKOnly
  87.     Exit Sub
  88. End Sub
  89. Private Sub Form_Load()
  90. Label1.Caption = "Welcome To Vegas Video KENO" _
  91.     & vbCrLf & "
  92.  1999 TimeLine Studios Software." & vbCrLf & "All Rights Reserved." _
  93.     & vbCrLf & vbCrLf & "This Program is Freeware." & vbCrLf & "This program is not crippled" _
  94.     & vbCrLf & "or function limited in any way." & vbCrLf & vbCrLf & "By clicking below and pressing accept" & vbCrLf _
  95.     & " You agree to the terms below and understand" & vbCrLf & "that this program offers no warranties express or implied" & vbCrLf & _
  96.     "and will not be held liable for any loss of data." & vbCrLf & vbCrLf & "DO NOT RE-DISTRIBUTE WITHOUT PERMISSION." _
  97.     & vbCrLf & "See about box for more information."
  98. Dim acceptlicense As Long
  99.         ' See if we should be shown at startup
  100.     acceptlicense = GetSetting(App.Title, "Options", "license", 0)
  101.     If acceptlicense = 0 Then
  102.     Exit Sub
  103.     Else
  104.         Unload Me
  105.         Splash.Show
  106.         End If
  107. End Sub
  108. Private Sub Picture1_Click()
  109. End Sub
  110.